extern int drscl_(integer *n, doublereal *sa, doublereal *sx, integer *incx);
/*:ref: dlamch_ 7 2 13 124 */
/*:ref: dlabad_ 14 2 7 7 */
/*:ref: dscal_ 14 4 4 7 7 4 */
